home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 4 / Eagles_Nest_Mac_Collection_Disc_4.TOAST / Database Management / FoxPro25#1 / FoxPro 2.5 Disk - 1 Setup.image / Cpzero.prg / Cpzero.bin
Text File  |  1993-12-04  |  3KB  |  155 lines
  1. * CPZERO -- Poke a codepage byte into a database header
  2. * Author: Walter Kennamer
  3. * Copyright Microsoft Corp, 1993
  4. *
  5. * Usage: 
  6. *    DO CPZERO WITH dbfname                     && marks the database with codepage 0 (i.e., no codepage)
  7. * 
  8. *    DO CPZERO WITH dbfname, codepage_number    && marks the database with specified codepage
  9. *
  10. * Some common valid numbers are:
  11. *   Windows            1252
  12. *   DOS                 437
  13. *   International DOS   850
  14. *
  15.  
  16. PARAMETER m.fname, m.cpbyte
  17. IF SET("TALK") = "ON"
  18.    SET TALK OFF
  19.    m.mtalk = "ON"
  20. ELSE
  21.    m.mtalk = "OFF"
  22. ENDIF   
  23.  
  24. #define C_TOTAL 20     && total code page numbers suppoted
  25.  
  26. IF PARAMETERS() < 2
  27.    m.cpbyte = 0
  28. ENDIF   
  29.  
  30. PRIVATE m.mtalk, m.vuename
  31.  
  32. #define c_buf_size 8096
  33.  
  34. #define c_noopen   1
  35. #define c_badbyte  2
  36. #define c_maxerror 3
  37.  
  38. m.vuename = ""
  39.  
  40. DECLARE error_array[c_maxerror]
  41. error_array[c_noopen] = "The database could not be opened"
  42. error_array[c_badbyte] = "Invalid code page specified."
  43.  
  44. DO setup
  45. DO main
  46. DO cleanup
  47.  
  48. PROCEDURE setup
  49. m.vuename = SYS(2023)+"\"+SYS(3)+".VUE"
  50. CREATE VIEW (m.vuename)
  51.  
  52.  
  53. PROCEDURE cleanup
  54. IF FILE(m.vuename)
  55.    SET VIEW TO (m.vuename)
  56.    DELETE FILE (m.vuename)
  57. ENDIF   
  58. SET TALK &mtalk
  59.  
  60. PROCEDURE main
  61. PRIVATE m.fp_in, m.buf, m.found_one, m.i, m.outbyte
  62.  
  63. * Set up table of code pages and DBF bytes numbers
  64. DIMENSION cpnums[C_TOTAL,2] 
  65. cpnums[ 1,1] = 437
  66. cpnums[ 1,2] = 1
  67. cpnums[ 2,1] = 850
  68. cpnums[ 2,2] = 2
  69. cpnums[ 3,1] = 1252
  70. cpnums[ 3,2] = 3
  71. cpnums[ 4,1] = 10000
  72. cpnums[ 4,2] = 4
  73. cpnums[ 5,1] = 852
  74. cpnums[ 5,2] = 100
  75. cpnums[ 6,1] = 866
  76. cpnums[ 6,2] = 101
  77. cpnums[ 7,1] = 865
  78. cpnums[ 7,2] = 102
  79. cpnums[ 8,1] = 861
  80. cpnums[ 8,2] = 103
  81. cpnums[ 9,1] = 895
  82. cpnums[ 9,2] = 104
  83. cpnums[10,1] = 620
  84. cpnums[10,2] = 105
  85. cpnums[11,1] = 737
  86. cpnums[11,2] = 106
  87. cpnums[12,1] = 857
  88. cpnums[12,2] = 107
  89. cpnums[13,1] = 10007
  90. cpnums[13,2] = 150
  91. cpnums[14,1] = 10029
  92. cpnums[14,2] = 151
  93. cpnums[15,1] = 10006
  94. cpnums[15,2] = 152
  95. cpnums[16,1] = 1250
  96. cpnums[16,2] = 200
  97. cpnums[17,1] = 1251
  98. cpnums[17,2] = 201
  99. cpnums[18,1] = 1253
  100. cpnums[18,2] = 202
  101. cpnums[19,1] = 1254
  102. cpnums[19,2] = 203
  103. cpnums[20,1] = 0
  104. cpnums[20,2] = 0
  105.  
  106. IF EMPTY(m.fname)
  107.    m.fname = getfile("DBF|SCX|FRX|LBX|MNX","DBF name")
  108. ENDIF
  109. IF !EMPTY(m.fname)
  110.    CLOSE DATABASES
  111.    m.outbyte = m.cpbyte
  112.    m.found_one = .F.
  113.    FOR m.i = 1 TO C_TOTAL
  114.       IF m.cpbyte = cpnums[m.i,1]
  115.          m.outbyte = cpnums[m.i,2]
  116.          m.found_one = .T.
  117.          EXIT
  118.       ENDIF
  119.    ENDFOR
  120.    IF m.found_one
  121.       m.cpbyte = m.outbyte
  122.    ELSE
  123.       * Was it a valid DBF byte if it wasn't a valid code page?
  124.       FOR m.i = 1 TO C_TOTAL
  125.          IF m.cpbyte = cpnums[m.i,2]
  126.             m.found_one = .T.
  127.          ENDIF
  128.       ENDFOR
  129.       IF !m.found_one
  130.          DO errormsg WITH c_badbyte
  131.          RETURN TO poke
  132.       ENDIF
  133.    ENDIF
  134.    
  135.    IF FILE(m.fname)
  136.        m.fp_in = fopen(m.fname,2)
  137.        IF m.fp_in > 0
  138.           =fseek(m.fp_in,29)
  139.           =fwrite(m.fp_in,CHR(m.cpbyte))   && poke codepage number into byte 29
  140.           =fclose(m.fp_in)
  141.        ELSE
  142.           DO errormsg WITH c_noopen
  143.           RETURN TO poke
  144.        ENDIF
  145.     ELSE
  146.        DO errormsg WITH c_noopen
  147.        RETURN TO poke
  148.     ENDIF
  149. ENDIF      
  150.  
  151.  
  152. PROCEDURE errormsg
  153. PARAMETER num
  154. WAIT WINDOW error_array[num] NOWAIT
  155.